home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / CD32 / CD32_Support / examples / cdgsxl / Buttons.a < prev    next >
Encoding:
Text File  |  1993-08-11  |  871 b   |  72 lines
  1. **********************
  2. *
  3. *   MouseButtons.a
  4. *
  5. *   W.D.L 930421
  6. *
  7. **********************
  8.  
  9. PortA        equ    $BFE001
  10. POTINP        equ    $dff016
  11.  
  12. LeftMouse    equ    6
  13. RightMouse    equ    10
  14. Fire        equ    7
  15.  
  16.  
  17.     XDEF    _LMBDown
  18.     XDEF    _RMBDown
  19.     XDEF    _FireDown
  20.     XDEF    _WaitForLMBDown
  21.  
  22.     section code
  23.  
  24. **********************************
  25.  
  26. _LMBDown:
  27.     btst    #LeftMouse,PortA
  28.     bne        LMB_NOT_DOWN
  29.  
  30.     move.l    #1,d0
  31.     rts
  32.  
  33. LMB_NOT_DOWN
  34.     move.l    #0,d0
  35.     rts
  36.  
  37. **********************************
  38.  
  39. _RMBDown:
  40.     btst    #RightMouse,POTINP
  41.     bne        RMB_NOT_DOWN
  42.  
  43.     moveq.l    #1,d0
  44.     rts
  45.  
  46. RMB_NOT_DOWN
  47.     moveq.l    #0,d0
  48.     rts
  49.  
  50. **********************************
  51.  
  52. _FireDown:
  53.     btst    #Fire,PortA
  54.     bne        Fire_NOT_DOWN
  55.  
  56.     move.l    #1,d0
  57.     rts
  58.  
  59. Fire_NOT_DOWN
  60.     move.l    #0,d0
  61.     rts
  62.  
  63. **********************************
  64.  
  65.  
  66. _WaitForLMBDown:
  67.     btst    #LeftMouse,PortA
  68.     bne        _WaitForLMBDown
  69.     rts
  70.  
  71.     END
  72.